source('plotfdp.R')

xs <- runif(50, xlim[1], xlim[2])
ys <- fdp(xs)

points(xs, ys,
	pch='x', cex=.75,
	col='black', lwd=2)

